import("gtk");
import("glade");

message("Warning saying \"Could not load support for `gnome'\" is okay here\n");
glade_require("gnome");

% Get the objects
variable xml = glade_xml_new("test.glade");
variable win = glade_xml_get_widget(xml,"window1");
variable xml_copy = glade_get_widget_tree(win);

% Make sure the finalizers can be called without problems
win = NULL;
xml_copy = NULL;

message("\nShould see 2 SLglade warnings about connecting a signal handler function\n");
glade_xml_signal_autoconnect(xml);

% Make sure everything still works
message("\nClose window via window manager\n");
gtk_main();

